home *** CD-ROM | disk | FTP | other *** search
/ T.J. Finds a Friend / T.J. Finds a Friend.iso / mac / SC07I / SC07I.rsrc / BITD_1045 (.txt) < prev    next >
AmigaBASIC Source Code  |  1993-11-27  |  2KB  |  438 lines
  1.                                                                                                                                                                                                                                                                INPUT
  2. ATN
  3. <0x5f>
  4. <0x7c><0x7f><0xf3,0x00>var0bffRND
  5. ATN
  6. <0x49>
  7. <0x7c><0x7f><0xf3,0x00><0x7d><0x1c196aa>
  8. <0x7f><0x4a>
  9. ATN
  10. RND
  11. <0x7d><0x7f><0xf3,0x00><0x7e><0x1c196b8>varffffffff<0x61>
  12. ATN
  13. INPUT
  14. varffffffff<0x7c><0x1c196c6><0xf3,0xfffffffb>varffffffff<0xf3,0x00>ATN
  15. CALL
  16.  
  17. <0x7f>
  18. <0x7f><0x7d><0x1c196d7><0xf3,0xfffffffb>varffffffffFIELD
  19. ATN
  20. =
  21. <0x7e><0x7f>var0505<0xf3,0x00><0x7e><0x7f>NEXT
  22. ATN
  23. <0x53>
  24. <0x7f><0x1c196f5><0x1c196f6><0x7e><0x7f><0x7c><0x1c196fa><0x7d><0x7f>ELSEIF
  25. ATN
  26. VAL
  27. varffffffff<0x7d><0x1c19707><0x7d><0x7f>var0b0b<0x7e><0x7f><0x56>
  28. ATN
  29. MID$
  30. <0x7e><0x7f><0x7e><0x1c19718>var0b0b<0xf3,0x00>-
  31. ATN
  32. DATA
  33. varffffffff<0x7e><0x1c19728><0x7d><0x1c1972a>varffffff00ATN
  34. ATN
  35. EQV
  36. labelffffff05<0x1c19737><0xf3,0xfffffffb>
  37. <0x7f>INKEY$
  38. ATN
  39. <0x5d>
  40. labelffffffff<0x1c19745><0xf3,0xfffffffb>varffffffffRIGHT$
  41. ATN
  42. <0x45>
  43. <0x7e><0x7f><0x7c><0x1c19754>varffffffff<0x48>
  44. ATN
  45. PRINT
  46. <0x7e><0x7f><0x7e><0x1c19761>varffffffff<0x5f>
  47. ATN
  48. FOR
  49. <0xf3,0x00>MOD
  50. ATN
  51. ATN
  52. <0x7c>
  53. PTABDATA
  54. ATN
  55. TO
  56. <0x7e><0x7f>
  57. USING<0x7e><0x7f>MID$<0x4d>
  58. <0x7e><0x7f>varffffe4e4<0x7e><0x7f>WHILEATN
  59. SPACE$
  60. <0x7e><0x7f><0x7d>USING<0x7e><0x7f><0x57>
  61. ATN
  62. LET
  63. <0x7e><0x7f><0x7c>USING<0x7d><0x7f>AND
  64. ATN
  65. CINT
  66. varffffffff<0x7f>USING<0x7c>USING<0x7d><0x7f>CVI
  67. ATN
  68. -
  69. varffffffff<0x80,0x00><0x7e><0x7f>LOG
  70. ATN
  71. <0x55>
  72. <0x7e><0x7f><0x80,0x00><0x7d><0x7f>WEND
  73. ATN
  74. WEND
  75. <0x7e><0x7f><0x80,0x00><0x7d><0x7f><0x56>
  76. ATN
  77. MID$
  78. <0x7e><0x7f><0x80,0x00>labelffffffe4USING<0x7d><0x7f>/
  79. ATN
  80. CVS
  81. varffffffff<0x80,0x00>
  82. <0x7f>
  83. <0x7f><0x7e>USING<0x7d><0x7f>CVD
  84. PRINT
  85. labelffffffff                                                                                                                                                                                                                                                               >
  86. XOR
  87. <0x7e><0x7f><0xf0,0x00><0x7d><0x7f><0x7d>USINGvarffffffffLOG
  88. INPUT
  89. ><0x7f>ALLSTATIC
  90. <0x7e><0x7f><0xf0,0x00><0x7c><0x7f><0x7d>USING<0x7e><0x7f>WEND
  91. DATA
  92. MOD<0x7f>*<0x7f>
  93. <0xf0,0x00><0x7f>THEN
  94. <0x7e><0x7f><0x7c>USINGALL<0x7e>USING<0x7d><0x7f><
  95. OR<0x7f><0x7d>
  96. CVD
  97. ALLTO<0x7f><0xf0,0x00><0x7c><0x7f>EQV<0xf0,0x00><0x7f>>
  98. <0x7e><0x7f><0xf0,0x00><0xf0,0x01><0x7e>USING<0x7c><0x7f>XOR
  99. var0000<<0x7f>INPUT
  100. MOD
  101. <0x59><0x7f>IMPUSING<0x7d><0x7f>AND<0xf0,0x00><0x7f>=
  102. <0x7e><0x7f><0x7c>USING<0x7e><0x7f>varfffff8f8<0x7f><0x7f><0x7e><0x7f><0x7d>USINGPTABMOD
  103. PTABIMPTHEN<0xf0,0x00>SIN
  104. STATIC
  105. <<0x7f>IMP<0xf0,0x00><0x7f><0xf0,0x00><0x7d><0x7f>^<0xf0,0x00><0x7f>IMP
  106. \
  107. <0x7e><0x7f><0x7c>USING<0x7e><0x7f><0x7e><0xf0,0x00><0x7f><0x7c>USINGPTAB<0x7c>
  108. PTAB-THENALL<0x50>
  109. <0x4f>
  110. ALL<0xf0,0x00><0x7c><0x7f>'OFF<0x7f><0xf0,0x00><0x7d><0x7f>TAB<0xf0,0x00><0x7c><0x7f>-
  111. <0x7d><0x7f><0x7c>USING<0x7d><0x7f>varfffff8f8<0x7c><0x7f><0xf0,0x00>IMP<0x7f>+THENMOD<0x7f>=
  112. TAN
  113. <0xf0,0x00><0xf0,0x01><0x7d><0x7f>NOT                                                                                                                                                                                                                                                               <0x7d>THEN<0xf8,0x00><0xf8,0x01><0x7e><0x7f>/<0xf8,0x00><0x7f>-
  114. <0x7d><0x7f><0x7d>USING<0x7c><0x7f><0x7e><0xf8,0x00><0x7f>varffffe4e4<0xf8,0x00>ORTHEN/<0x7f><0x7e><0x7f>NEXT
  115. <0xf8,0x00>\THEN<0x7d><0x7f>ORBREAKAPPEND<0x7f>MODTHENALL<0xf8,0x00>varffffffff/<0xf8,0x00><0x7f>*
  116. <0x7d><0x7f><0x7c>USING<0x7d><0x7f><0x7d><0xf8,0x00><0x7f>IMPTHEN
  117. THENUSING<0x7f>REM
  118. PTAB<0xf8,0x00><0x7e>THEN<0x7e><0x7f>USING<0xf8,0x00><0x7f><0x7f><0xf8,0x00>XOR<0x7f><0x7c>USING<0x7e><0x7f>/<0xf8,0x00><0x7f>*
  119. <0x7c><0x7f><0x7d>USING<0x7c><0x7f><0x7d><0xf8,0x00><0xf8,0x01><0xf8,0x01>XORTHEN<0xf8,0x01>EQVWAIT<0x7f>TAN
  120. <0xf8,0x00>PTABXORTHEN<0x7e><0x7f>USING<0xf8,0x00><0x7f><0x7f><0xf8,0x00>-<0x7f><0x7d>USING<0x7e><0x7f>/<0xf8,0x00><0x7f>IMP
  121. <0xf8,0x00>PTABvarffffe4e4PTAB<0x7e><0xf8,0x00><0x7f>EQVTHENPTAB>STEP<0x7f><0x54>
  122. TO
  123. PTABXORTHEN<0x7e><0x7f>STATIC<0xf8,0x00><0x7f><0x7f><0x7d>THENEQV<0x7f>var0000<0x7d><0x7f>
  124.  
  125. <0x7c><0x7f><0x7e>USING<0x7e><0x7f><0xf8,0x00><0xf8,0x01><0x7d><0x7f>+
  126. *<0x7f>EQVTHEN<0x7c><0x7f><0x62>OUTPUT<0x7f>*
  127. <0x51>
  128. PTABANDTHEN<0x7e><0x7f>STATIC<0xf8,0x00><0x7f><0x7f><0x7d>THEN                                                                                                                                                                                                                                                       
  129. <0xfd,0x00><0x7d><0x7f><0x7d>USINGvarffffffff/<0xfd,0x00><0x7f><
  130. AND<0x7f>MODTHEN<0x7c><0x7f><0x5e><0xfd,0x00>STEPPTABAREA
  131. <0xfd,0x01>ANDTHEN<0x7e><0x7f><0x61><0xfd,0x00><0x7f><0x7e>THEN<0xfd,0x00>+
  132. <0x7e><0x7f><0x7d>USINGvarffffffff^<0xfd,0x00><0x7f>NOT
  133. NOT<0x7f>EQV<0xfd,0x00>SPC<0x7f><0x4a>
  134. <0xfd,0x00>^THEN<0x7d><0x7f><0xfd,0x00><<0xfd,0x01><0x7f><0x7f>THENTHENPTAB'
  135. <0x7d><0x7f><0x7e>USINGvarffffffffAND<0xfd,0x00><0x7f>TO
  136. IMP<0x7f>\<0x7f><0x58>BREAK<0x7f><0x52>
  137. <0xfd,0x00>\THEN<0xfd,0x01><0x7d><0x7f><0x60>SPC<0x7f>USING
  138. <0x7d><0x7f><0x7e>USINGvarffffffffOR<0xfd,0x00><0x7f>OR
  139. '
  140. MOD<0x7f><0x5d><0xfd,0x00><0x7f><0x5d>
  141. <0x7d>
  142. <0xfd,0x00>-THEN<0x7d><0x7f><0x5f>OUTPUT<0x7f><0x61>
  143. <0x7d><0x7f><0x7e>USINGvarffffffffMOD<0xfd,0x00><0xfd,0x01><0x7f><0x54>
  144. \<0x7f>USINGUSR<0x7f>
  145. THENXOR<0x7f><0xfd,0x00>=
  146. <0xfd,0x01>-THEN<0x7c><0x7f><0x5e>OUTPUT<0x7f>USING
  147. <0x7c>
  148. <0x7e><0x7f><0x7d>USINGvarffffffffXOR<0xfd,0x00><0x7f><0x7f>USING<0x7e><0x7f><0x51>
  149. \<0x7f><BASE<0x7f><0xfd,0x00><0xfd,0x01>XOR<0x7f>OR
  150. XOR<0x7f><THEN<0x7d><0x7f><0x5c>BASE<0x7f><0xfd,0x00>STATIC
  151. <0x7e>                                                                                                                                                                                                                                    <0x7e><0x7f>EQV<0xfc,0x00><0x7f><0x7f>USINGUSING<0x7f><0x7f><0x4d>
  152. ALL<0xfc,0x00>\AS<0x7f>ORTHEN<0x57><0x7f>>THEN<0x7c><0x7f>THENWAITBASE<0x7f><0x5a>
  153. <0x7e><0x7f><0x7e>USINGvarffffffffEQV<0xfc,0x00><0x7f><0x7f>USINGUSING<0x7e><0x7f><0x55>
  154. MOD
  155. PTABORAPPEND<0x7f>ORTHENXOR<0x7f><0x7e>
  156. <<0x7f>THENTHENPTAB<0x7c><0xfc,0x00>BASE<0x7f><0x57>
  157. varffffffff<0x7d>USINGPTABTAB<0x7f>USINGUSING<0x7e><0x7f>-
  158. <0x5c>
  159. PTABMODAPPEND<0x7f>EQVTHEN\<0x7f>AND
  160. <0x7e><0x7f>
  161.  
  162. MOD<0x7f>ANDTHEN\THENPTAB<0x59>BASE<0x7f><0x56>
  163. <0x7e><0x7f><0x7e>USINGMOD<0x7f><0x7e><0xfc,0x00><0x7f><0x7f>USINGUSING<0x7f><0x7f><0x45>
  164. <0x7c><0x7f><0xfc,0x00><0x7e><0x7f>EQVTHEN<0xfc,0x00>TO
  165.  
  166.  
  167. <0xfc,0x01>+THEN<0xfc,0x01><0x58>AS<0x7f><0x55>
  168. label00ff<0x7f><0xfc,0x00>\<0x7f><0x7e>USING<0x7e><0x7f><0x45>
  169. PTAB<0x7d><0xfc,0x00><0x7f><0x7f>IMPTHEN<0xfc,0x00><0xfc,0x01>USING
  170. MOD<0x7f><0xfc,0x00>\<0x7f><0x56>APPEND<0x7f><
  171. NOT
  172. <0x7e><0x7f>IMPUSINGPTAB<0x7e>USING<0x7e><0x7f>CVL
  173. <0x7c><0x7f>labelfffff9ff<0x7f><0x7e>THEN<0xfc,0x00><0xfc,0x01><0x57>
  174. <<0x7f><0x54>                                                                                                                                                                                                                                                               
  175. <0x7f><0x4f>
  176. <0x7e><0x7f>XORUSINGvarffffffff<0x7c>USINGvarffffffff<0x4f>
  177. OR
  178. <0x7c><0x7f>\THENPTAB<0x52>
  179. OR<0x7f>USING<0xfc,0x00>AS<0x7f><0x4e>
  180. <0xfc,0x00>^USINGvarffffffffNOT
  181. <0x59>
  182. <0x7d><0x7f><0xfc,0x00><0x7c><0x7f><0x4b>
  183. ALLSTEP<0x57>AS<0x7f><0x4d>
  184. OR<0x7f>\USINGvarffffffff<0x7f>
  185. ELSEIF
  186. <0x7d><0x7f><0x7c>THEN<0x7c><0x7f><0x51>
  187. MOD
  188. ALL<0x54>AS<0x7f><0x4c>
  189. <0x7e><0x7f>
  190. <0x1c19d75><0x7f><0x7f>OR<0x7f><0x7c>USINGvarffffffffWEND
  191. <0x7d><0x7f><0x7e>THEN<0x7c><0x7f>'
  192. <0x5b>
  193. <0xfc,0x00><0x59>AS<0x7f><0x5d>
  194. /
  195. varffffffff<0x7d><0x1c19d99><0x1c19d9c><0x7f><0x7f><0x7e>
  196. MOD<0x7f>USING<0x7f><0x7f>WHILEMOD<0x7f><0x7e>
  197. CLNG
  198. \<0x7f><0x5e>BASE<0x7f>EQV
  199. <0x58>
  200.  
  201. <0x7f><0xfc,0x00><0x1c19dc0><0x7f><0x7f><0xfc,0x00>\<0x7f><0x48>
  202. <0xfc,0x00><0x7f><0x1c19dce><0x1c19dcf>PTABSQR
  203. ALLNOTASBASE<0x7f><0x49>
  204. varffffffff<0x7d><0x1c19de2><0x7e><0x1c19de4>varffffffffMOD
  205. ALL<0x61>
  206. <0x61>
  207. <0x7e><0x7f><0x7e><0x1c19df3><0x7d><0x7f>RSET
  208. <0xfc,0x00>
  209. <0x7f>>OUTPUT<0x7f><0x46>
  210.  
  211. <0x7f><0x7e><0x1c19e05><0x7d><0x1c19e07>
  212. <0x7f>IMP
  213. <0x1c19e0c>           <0x1c19e42><0x1c19e43><0x7e><0x7f><0xfd,0x00><0x49>
  214. <0x7e><0x7f><0x1c19e4c><0x1c19e4d><0x1c19e4e><0x1c19e4f><0x1c19e50><0x7f><0x7f>MKL$
  215. *
  216. ALL-SPC<0x7f><0x45>
  217. <0x1c19e5f><0x7f><0x7f><0x1c19e62><0x1c19e63><0x1c19e64><0x1c19e65><0x7e><0x7f><0x7d>
  218. <0xfd,0x00><0x7f><0x1c19e6f><0x1c19e70><0x7e><0x1c19e72>varffffffffCLNG
  219. <0x7d><0x7f><0x1c19e7c><0x7f><0x7f><0x5a>
  220. <0x52>
  221. <0xfd,0x00>\STEP<0x7f><0x4c>
  222. IMP
  223. <0x7e><0x7f>label05ff<0x7f>EQV
  224. varffffffff<0x7e><0x1c19e99><0x1c19e9c><0x7f><0x7f>CVL
  225. <0x7f><0x1c19ea4><0x1c19ea5><0x7c><0x7f>OR
  226. STR$
  227. =<0x7f><0x62>
  228. <0x5d>
  229. <0x7c><0x7f>XOR
  230. varffffffff<0x7e><0x1c19eba><0x1c19ebd><0x7f><0x7f>MKL$
  231.  
  232. <0x7f><0x7f><0x1c19ec7><0x1c19ec8><0x7d><0x7f>MID$
  233. ^<0x7f>\
  234. <0x46>
  235. PTABOR
  236. ALL<0x5a>
  237. <
  238. <0x7e><0x7f><0xfd,0x00>LOC
  239. var0000<0xfd,0x00>STR$
  240.  
  241. <0x7f><0x7e><0x1c19eed>varffffffffAND
  242. <0x7d><0x7f><0x7e><0x1c19ef6>varffffffffXOR
  243. <0x53>
  244. varffffffff<0xfd,0x00>
  245. <0x7f>STRING$
  246. IF
  247. <0x1c19f09><0x7f><0x7f><0x1c19f0c><0x1c19f0d><0x1c19f0e><0x7f><0x7f>OR
  248. <0x7e><0x7f><0x7e><0x1c19f16><0x7e><0x1c19f18>
  249. <0x7f><0x46>
  250. <0x7e><0x7f><0x7c><0x1c19f20>label05ff<0x7f><0x52>
  251. ATN
  252. label0000<0x7f><0x7e><0x1c19f2e>label05ff<0x7f>AND
  253.  
  254. <0x7f><0x7d><0x1c19f38><0x7e><0x1c19f3a>
  255. <0x7f><0x46>                                                                                                                                                                                                                                                               <0x7c><0x1c19f73>label05ff<0x7f>=
  256. ATN
  257. NOT
  258. <0x1c19f7e><0x7f><0x1c19f80><0x1c19f81><0x1c19f82><0x1c19f83><0x7f>^
  259.  
  260. <0x7f><0x7d><0x1c19f8a><0x7e><0x1c19f8c>
  261. <0x7f><0x46>
  262. varffffffff<0x7c><0x1c19f95>label0505<0x7f>
  263. <0x7f>CALL
  264. <0x4f>
  265. <0x1c19fa0><0x7f><0x1c19fa2><0x1c19fa3><0x1c19fa4><0x7f><0x7f>^
  266. varffffffff<0x7e><0x1c19fad><0x7e><0x1c19faf>varffffffff<0x55>
  267. XOR
  268. varffffffff<0x7d><0x1c19fbb><0x7e><0x1c19fbd>varffffffffINT
  269. SQR
  270. <0x1c19fc5><0x7f><0x7f><0x1c19fc8><0x1c19fc9><0x7f><0x7f>/
  271. <0x7f><0x1c19fd1><0x1c19fd2><0x7d><0x1c19fd4>
  272. <0x7f>-
  273. <0x5b>
  274. varffffffff<0x7d><0x1c19fdf><0x1c19fe2><0x7f><0x7f>RND
  275. LINE
  276. <0x1c19fe9><0x7f><0x7f><0x1c19fec><0x1c19fed><0x1c19fee><0x7f><0x7f>/
  277.  
  278. <0x7f><0x7e><0x1c19ff6><0x1c19ff9><0x1c19ffa><0x7f><0x47>
  279. varffffffff<0x7e><0x1c1a002><0x7e><0x1c1a004>
  280. <0x7f><0x49>
  281. CLOSE
  282. <0x1c1a00b><0x7f><0x7f><0x1c1a00e><0x1c1a00f><0x1c1a010>varffffffff/
  283. varffffffff<0x7d><0x1c1a01a>var05ff<0x46>
  284.  
  285. <0x7f><0x7e><0x1c1a023><0x7e><0x1c1a025>
  286. <0x7f><0x61>
  287. ATN
  288. *
  289. <0x1c1a02e><0x7f><0x7f><0x1c1a031><0x1c1a032><0x1c1a033><0x7f><0x7f>-
  290. <0x1c1a038><0x7f><0x7f><0x1c1a03b><0x1c1a03c><0x7f><0x7f><0x46>
  291. labelffffffff<0x1c1a044><0x7d><0x1c1a046>
  292. <0x7f><0xfc,0x00>ATN
  293. <0x55>
  294. PTAB<
  295. <0x7e><0x7f><0x4d>
  296. <0xfc,0x00>varffffffff<0x7d><0x1c1a05d>
  297. <0x7f>FIX
  298. VAL
  299. <0x7c><0x7f><0x4c>
  300. <0x5f>
  301. varffffffff<0x7f>ON<0x7e><0x7f>STATIC
  302. <0x46>
  303. <0x1c1a0e8><0x7f><0x7f><0x1c1a0eb><0x1c1a0ec><0x7f>CVL
  304. ATN
  305. PUT
  306. <0x7c><0x7f><0x5b>
  307. ATN
  308. FOR
  309. <0x7e><0x7f>OR
  310. ATN
  311. <0x3b>
  312.  
  313.  
  314.  
  315.  
  316.  
  317.  
  318.  
  319.  
  320.  
  321.  
  322.  
  323.  
  324.  
  325.  
  326.  
  327.  
  328.  
  329.  
  330.  
  331.  
  332.  
  333.  
  334.  
  335.  
  336.  
  337.  
  338.  
  339.  
  340.  
  341.  
  342.  
  343.  
  344.  
  345.  
  346.  
  347.  
  348.  
  349.  
  350.  
  351.  
  352.  
  353.  
  354.  
  355.  
  356.  
  357.  
  358.  
  359.  
  360.  
  361.  
  362.  
  363.  
  364.  
  365.  
  366.  
  367.  
  368.  
  369.  
  370.  
  371.  
  372.  
  373.  
  374.  
  375.  
  376.  
  377.  
  378.  
  379.  
  380.  
  381.  
  382.  
  383.  
  384.  
  385.  
  386.  
  387.  
  388.  
  389.  
  390.  
  391.  
  392.  
  393.  
  394.  
  395.  
  396.  
  397.  
  398.  
  399.  
  400.  
  401.  
  402.  
  403.  
  404.  
  405.  
  406.  
  407.  
  408.  
  409.  
  410.  
  411.  
  412.  
  413.  
  414.  
  415.  
  416.  
  417.  
  418.  
  419.  
  420.  
  421.  
  422.  
  423.  
  424.  
  425.  
  426.  
  427.  
  428.  
  429.  
  430.  
  431.  
  432.  
  433.  
  434.  
  435.  
  436.  
  437.  
  438.